home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 101-125 / disk_121 / dataplot / data drawer / data_maker (.txt) < prev    next >
AmigaBASIC Source Code  |  1992-05-06  |  361b  |  28 lines
  1. ' DATA MAKER
  2.  
  3. DEF FNX(T)=T*SIN(T)
  4.  
  5. DEF FNY(T)=T*COS(T)
  6.  
  7. OPEN "SPIRAL" FOR OUTPUT AS #1
  8.  
  9. PRINT #1,"TITLE=SPIRAL"
  10. PRINT #1,"XLABEL"
  11. PRINT #1,"YLABEL"
  12. PRINT #1,"GRIDS=NO"
  13. PRINT #1,"MARKERS=YES"
  14. PRINT #1,"SEGMENTS=NO"
  15.  
  16. FOR T=1 TO 500
  17.  
  18.   X=FNX(T)
  19.   Y=FNY(T)
  20.   
  21.   PRINT #1,X;",";Y
  22.   
  23. NEXT T
  24.  
  25. CLOSE #1
  26.  
  27. END
  28.